home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / compile_to_c4.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  4.5 KB  |  263 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9. void r586copy_from(T586 C,T586 a1,int a2){
  10. int _i=0;
  11. _i=a2;
  12. while (!((_i)<(0))) {
  13. (C)[_i]=((a1)[_i]);
  14. _i=(_i)-(1);
  15. }
  16. }
  17. T586 r586realloc(T586 C,int a1,int a2){
  18. T586 R=NULL;
  19. R=calloc(a2,sizeof(T0*));
  20. r586copy_from(R,C,(a1)-(1));
  21. return R;
  22. }
  23. void r973copy_from(T973 C,T973 a1,int a2){
  24. int _i=0;
  25. _i=a2;
  26. while (!((_i)<(0))) {
  27. (C)[_i]=((a1)[_i]);
  28. _i=(_i)-(1);
  29. }
  30. }
  31. T973 r973realloc(T973 C,int a1,int a2){
  32. T973 R=NULL;
  33. R=calloc(a2,sizeof(T0*));
  34. r973copy_from(R,C,(a1)-(1));
  35. return R;
  36. }
  37. void r884set_all_with(T884 C,T0* a1,int a2){
  38. int _i=0;
  39. _i=a2;
  40. while (!((_i)<(0))) {
  41. (C)[_i]=(a1);
  42. _i=(_i)-(1);
  43. }
  44. }
  45. int r884fast_index_of(T884 C,T0* a1,int a2){
  46. int R=0;
  47. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  48. R=(R)+(1);
  49. }
  50. return R;
  51. }
  52. void r884copy_from(T884 C,T884 a1,int a2){
  53. int _i=0;
  54. _i=a2;
  55. while (!((_i)<(0))) {
  56. (C)[_i]=((a1)[_i]);
  57. _i=(_i)-(1);
  58. }
  59. }
  60. T884 r884realloc(T884 C,int a1,int a2){
  61. T884 R=NULL;
  62. R=calloc(a2,sizeof(T0*));
  63. r884copy_from(R,C,(a1)-(1));
  64. return R;
  65. }
  66. void r692set_all_with(T692 C,T0* a1,int a2){
  67. int _i=0;
  68. _i=a2;
  69. while (!((_i)<(0))) {
  70. (C)[_i]=(a1);
  71. _i=(_i)-(1);
  72. }
  73. }
  74. int r692fast_index_of(T692 C,T0* a1,int a2){
  75. int R=0;
  76. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  77. R=(R)+(1);
  78. }
  79. return R;
  80. }
  81. void r692copy_from(T692 C,T692 a1,int a2){
  82. int _i=0;
  83. _i=a2;
  84. while (!((_i)<(0))) {
  85. (C)[_i]=((a1)[_i]);
  86. _i=(_i)-(1);
  87. }
  88. }
  89. T692 r692realloc(T692 C,int a1,int a2){
  90. T692 R=NULL;
  91. R=calloc(a2,sizeof(T0*));
  92. r692copy_from(R,C,(a1)-(1));
  93. return R;
  94. }
  95. int r379fast_index_of(T379 C,T0* a1,int a2){
  96. int R=0;
  97. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  98. R=(R)+(1);
  99. }
  100. return R;
  101. }
  102. void r379copy_from(T379 C,T379 a1,int a2){
  103. int _i=0;
  104. _i=a2;
  105. while (!((_i)<(0))) {
  106. (C)[_i]=((a1)[_i]);
  107. _i=(_i)-(1);
  108. }
  109. }
  110. T379 r379realloc(T379 C,int a1,int a2){
  111. T379 R=NULL;
  112. R=calloc(a2,sizeof(T0*));
  113. r379copy_from(R,C,(a1)-(1));
  114. return R;
  115. }
  116. int r379equal_like(T0* a1,T0* a2){
  117. int R=0;
  118. /*IF*//*AF*//*AF*/if ((a1)==((void*)(a2))) {
  119. R=1;
  120. }
  121.  else if (((a1)==((void*)(NULL)))||((a2)==((void*)(NULL)))) {
  122. }
  123. else {
  124. R=r627is_equal(((T627*)a1),a2);
  125. }
  126. /*FI*/return R;
  127. }
  128. int r379index_of(T379 C,T0* a1,int a2){
  129. int R=0;
  130. while (!(((R)>(a2))||(r379equal_like(a1,(C)[R])))) {
  131. R=(R)+(1);
  132. }
  133. return R;
  134. }
  135. void r175set_all_with(T175 C,T0* a1,int a2){
  136. int _i=0;
  137. _i=a2;
  138. while (!((_i)<(0))) {
  139. (C)[_i]=(a1);
  140. _i=(_i)-(1);
  141. }
  142. }
  143. void r175copy_from(T175 C,T175 a1,int a2){
  144. int _i=0;
  145. _i=a2;
  146. while (!((_i)<(0))) {
  147. (C)[_i]=((a1)[_i]);
  148. _i=(_i)-(1);
  149. }
  150. }
  151. T175 r175realloc(T175 C,int a1,int a2){
  152. T175 R=NULL;
  153. R=calloc(a2,sizeof(T0*));
  154. r175copy_from(R,C,(a1)-(1));
  155. return R;
  156. }
  157. void r667copy_from(T667 C,T667 a1,int a2){
  158. int _i=0;
  159. _i=a2;
  160. while (!((_i)<(0))) {
  161. (C)[_i]=((a1)[_i]);
  162. _i=(_i)-(1);
  163. }
  164. }
  165. T667 r667realloc(T667 C,int a1,int a2){
  166. T667 R=NULL;
  167. R=calloc(a2,sizeof(T0*));
  168. r667copy_from(R,C,(a1)-(1));
  169. return R;
  170. }
  171. void r659set_all_with(T659 C,T0* a1,int a2){
  172. int _i=0;
  173. _i=a2;
  174. while (!((_i)<(0))) {
  175. (C)[_i]=(a1);
  176. _i=(_i)-(1);
  177. }
  178. }
  179. int r659fast_index_of(T659 C,T0* a1,int a2){
  180. int R=0;
  181. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  182. R=(R)+(1);
  183. }
  184. return R;
  185. }
  186. void r659copy_from(T659 C,T659 a1,int a2){
  187. int _i=0;
  188. _i=a2;
  189. while (!((_i)<(0))) {
  190. (C)[_i]=((a1)[_i]);
  191. _i=(_i)-(1);
  192. }
  193. }
  194. T659 r659realloc(T659 C,int a1,int a2){
  195. T659 R=NULL;
  196. R=calloc(a2,sizeof(T0*));
  197. r659copy_from(R,C,(a1)-(1));
  198. return R;
  199. }
  200. void r729set_all_with(T729 C,T0* a1,int a2){
  201. int _i=0;
  202. _i=a2;
  203. while (!((_i)<(0))) {
  204. (C)[_i]=(a1);
  205. _i=(_i)-(1);
  206. }
  207. }
  208. int r729fast_index_of(T729 C,T0* a1,int a2){
  209. int R=0;
  210. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  211. R=(R)+(1);
  212. }
  213. return R;
  214. }
  215. void r729copy_from(T729 C,T729 a1,int a2){
  216. int _i=0;
  217. _i=a2;
  218. while (!((_i)<(0))) {
  219. (C)[_i]=((a1)[_i]);
  220. _i=(_i)-(1);
  221. }
  222. }
  223. T729 r729realloc(T729 C,int a1,int a2){
  224. T729 R=NULL;
  225. R=calloc(a2,sizeof(T0*));
  226. r729copy_from(R,C,(a1)-(1));
  227. return R;
  228. }
  229. int r729equal_like(T0* a1,T0* a2){
  230. int R=0;
  231. /*IF*//*AF*//*AF*/if ((a1)==((void*)(a2))) {
  232. R=1;
  233. }
  234.  else if (((a1)==((void*)(NULL)))||((a2)==((void*)(NULL)))) {
  235. }
  236. else {
  237. R=r805is_equal(((T805*)a1),a2);
  238. }
  239. /*FI*/return R;
  240. }
  241. int r729index_of(T729 C,T0* a1,int a2){
  242. int R=0;
  243. while (!(((R)>(a2))||(r729equal_like(a1,(C)[R])))) {
  244. R=(R)+(1);
  245. }
  246. return R;
  247. }
  248. void r949copy_from(T949 C,T949 a1,int a2){
  249. int _i=0;
  250. _i=a2;
  251. while (!((_i)<(0))) {
  252. (C)[_i]=((a1)[_i]);
  253. _i=(_i)-(1);
  254. }
  255. }
  256. T949 r949realloc(T949 C,int a1,int a2){
  257. T949 R=NULL;
  258. R=calloc(a2,sizeof(T0*));
  259. r949copy_from(R,C,(a1)-(1));
  260. return R;
  261. }
  262.  
  263.